home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v9n07.arc / HEAPTEST.PAS < prev    next >
Pascal/Delphi Source File  |  1990-03-16  |  356b  |  14 lines
  1.  
  2. PROGRAM HeapTest;
  3. BEGIN
  4.   WriteLn('MaxAvail is ',MaxAvail:7,', FreeMin is ',FreeMin:4);
  5.   FreeMin := 10;
  6.   WriteLn('MaxAvail is ',MaxAvail:7,', FreeMin is ',FreeMin:4);
  7.   FreeMin := 100;
  8.   WriteLn('MaxAvail is ',MaxAvail:7,', FreeMin is ',FreeMin:4);
  9.   FreeMin := 1000;
  10.   WriteLn('MaxAvail is ',MaxAvail:7,', FreeMin is ',FreeMin:4);
  11. END.
  12.  
  13.  
  14.